home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / c_5_mac.zip / C-5-MAC.TXT next >
Text File  |  1991-09-08  |  8KB  |  177 lines
  1.  ┌────────────────────────────────────────┐
  2.  │         COMMO  Phone Directory         │
  3.  └────────────────────────────────────────┘
  4.    SYSTEM NAME              LAST CALL             PHONE NUMBER                     PASSWORD     MACRO   PARAMETERS
  5. ┌───────────────┐           ┌──────┐             ┌────────────────┐              ┌────────────┐ ┌───┐ ┌───────────┐
  6. NetConnection               09/07/91             {%prfx2 882-5575 }              {            } {net} {38400,8n1,3}
  7. DirectoryAssist             09/07/91             {%prfx2 1-707-538-8710}         {            } {   } {38400,8n1,3}
  8. SemWare                     09/07/91             {%prfx2 1-404-641-8968}         {            } {   } {38400,8n1,3}
  9. WatchWord                   09/07/91             {%prfx2 247-1382 }              {            } {wat} {38400,8n1,3}
  10. DownEast Roots              00/00/00             {%prfx1 1-603-964-7912}         {            } {   } {2400,8n1,3}
  11. MAS-BBS                     00/00/00             {%prfx2 1 718 444 4555}         {            } {   } {38400,8n1,3}
  12. Motherboard                 00/00/00             {%prfx2 1 707 778 8841}         {            } {   } {38400,8n1,3}
  13. Palladin                    00/00/00             {%prfx2 1 415 485 1736}         {            } {   } {38400,8n1,3}
  14. Babble Undrgrnd             00/00/00             {%prfx2 1 707 575 0636}         {            } {   } {38400,8n1,3}
  15. The Assembler               00/00/00             {%prfx2 1 503 343 6383}         {            } {   } {38400,8n1,3}
  16. Northern Lights             00/00/00             {%prfx2 1 207 766 5788}         {            } {   } {38400,8n1,3}
  17.  
  18.          %prfx# indicates MODEM PARAMETERS for my HST
  19.  
  20.          passwords and link parameters are off screen to the right
  21.  
  22.          NOTE: called macros load individual BBS variables
  23.  ═══════════════════════════════════════════════════════════════════════════
  24.  Login  PCBoard BBS             (put "pcb" in Dialing Directory macro field)
  25.  ───────────────────────────────────────────────────────────────────────────
  26.  {:pcb} {pushstack} {setlook 60,hng,6,n|}
  27.     {golook yqn,want graphics}
  28.     {golook yqn,graphics (Enter)=no}
  29.     {golook ntr,Language # to use}
  30.     {golook nam,first name?}
  31.     {golook yes,correct? (}
  32.     {golook ntr,More?}
  33.     {golook noo,(H)elp, More?}
  34.     {golook pas,will echo)?}
  35.     {golook ntr,continue?}
  36.     {golook noo,'Last Read'}
  37.     {golook pc1,Main Board - Your Com}
  38.     {lookfor Main Board Command?} {send n s u|} {popstack} {}
  39.  {:pc1} {send n s u|} {popstack} {}
  40.  ═══════════════════════════════════════════════════════════════════════════
  41.  
  42.  
  43.  
  44.  
  45.  ═══════════════════════════════════════════════════════════════════════════
  46.  Login  WildCat! BBS            (put "cat" in Dialing Directory macro field)
  47.  ───────────────────────────────────────────────────────────────────────────
  48.  {:cat} {pushstack} {SETL 60,hng,6,|}
  49.     {golook ntr,Last Name}
  50.     {golook ntr,[C]ontinue}
  51.     {golook ntr,[ENTER] for a}
  52.     {golook ntr,[ENTER] to contin}
  53.     {golook npa,First Name}
  54.     {golook ntr,[ENTER] to Quit}
  55.     {golook noo,bulletin menu [Y/n]?}
  56.     {golook noo,view it [Y/n]?}
  57.     {golook ca1,XXX-XXX-XXXX}
  58.     {golook ca2,MM-DD-YY}
  59.     {golook ntr,Correct [Y/n] ?}
  60.     {lookfor MAIN MENU:} {popstack} {}
  61.  {:ca1} {send 317-839-2983|} {return}
  62.  {:ca2} {send 03/26/41|} {return}
  63.  ═══════════════════════════════════════════════════════════════════════════
  64.  
  65.  
  66.  
  67.  ═══════════════════════════════════════════════════════════════════════════
  68.  Shared CALLED functions
  69.  ───────────────────────────────────────────────────────────────────────────
  70.  {:yqn}  {send y q ns|} {return}
  71.  {:yes}  {send y|} {return}
  72.  {:ntr}  {send |} {return}
  73.  {:noo}  {send n|} {return}
  74.  {:nam}  {send Pat Shanahan|} {return}
  75.  {:npa}  {send Pat Shanahan|~%_passowrd|} {return}
  76.  {:pas}  {send %_password|} {return}
  77.  {:esk}  {send ^[} {return}
  78.  {:hng}  {send hangup y} {}
  79.  {:mnu}  {popstack} {}
  80.  ───────────────────────────────────────────────────────────────────────────
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  ═══════════════════════════════════════════════════════════════════════════
  90.  The following set variables to allow me to use a generic script for mail.  The
  91.  different looks/language for each BBS can be adjusted this way.  I run mail
  92.  to/from IBM-NET (pcboard), COMPUTERS 2000 (pcboard), and WATCHWORD (wildcat)
  93.  automatically with these parameters.
  94.  ───────────────────────────────────────────────────────────────────────────
  95.  {:icc}  {setvar bbsid,icc} {setvar 2mail,open 21} {setvar lname,icc}
  96.     {setvar lk_str1,) MarkMail Command?} {setvar dmail,dg} {setvar smail,u}
  97.     {setvar quit_str,g} {goto pcb}
  98.  {:net}  {setvar bbsid,net} {setvar 2mail,open 14} {setvar lname,ibm-net}
  99.     {setvar lk_str1,Qmail Command?} {setvar dmail,dg} {setvar smail,u}
  100.     {setvar quit_str,g} {goto pcb}
  101.  {:wat}  {setvar bbsid,wtch} {setvar 2mail,d|~~~~~~3} {setvar lname,watchw}
  102.     {setvar lk_str1,TOMCAT MENU [C} {setvar dmail,d} {setvar smail,u}
  103.     {setvar quit_str,g} {goto cat}
  104.  ═══════════════════════════════════════════════════════════════════════════
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  ═══════════════════════════════════════════════════════════════════════════
  112.  DO MAIL RUN                                     ;rev 09-07-91 5:22p
  113. {:domail}  {setlook 90,hng}
  114.     {send %2mail%|}
  115.     {lookfor %lk_str1%}
  116.     {ifexist %uldir%\%lname%.rep,smail,}         ;have replies?, upload them
  117.  
  118. {:dmail}  {send %dmail%|}                        ;req dload & quit
  119.     {setlook 300,hng}
  120.     {golook no_mail,Sorry,}                      ;have mail? quit if not
  121.     {golook want_mail,wish to receive}           ;yes, want it        QMAIL DOOR
  122. {:start_dl}  {lookfor ^xB00}                     ;initiate zmodem dload
  123.  
  124. DAVE -NOTE: 'exec-da' and '%_port' and '%dldir%' - I most generally put the '%'
  125.         delimiter at each end of a variable.  That way I don't have to remember
  126.         what chars are acceptable as delimiters.  EXEC-DA tells COMMO to execute
  127.         DSZ (full path and name required) without invoking COMMAND.COM [the -D
  128.         does this] and to sound the ALARM when finished [the A on -DA].
  129.  
  130.     {exec-da e:\commo\DSZ.exe port %_port ha on est 0 19200 d rz -rrmS %dldir%\}
  131.     {lookfor was successful}
  132.     {send %quit_str%|}
  133.  
  134.     {ifexist %dldir%\%lname%.qwk,,clr_vars}      ;have .qwk?, rename it or quit
  135.     {ropen e:\commo\num.log,inc_num}             ;get seq number
  136.     {read number}                                ;one line file, auto closes
  137. {:inc_num}  {increment number}                   ;increment number (no dups)
  138.     {exec-N ren %dldir\%lname%.qwk %dldir%\%bbsid%%number%.qwk}
  139.  
  140.     {wopen e:\commo\num.log}                     ;write new number back
  141.     {write %number%}                             ; to file to maintain sequence
  142.     {wclose}
  143.  
  144. {:clr_vars}  {setvar number,}                    ;clear variable space
  145.     {setvar temp,}
  146.     {setvar bbsid,}
  147.     {setvar lname,}
  148.     {setvar lk_str1,}
  149.     {setvar 2mail,}
  150.     {setvar smail,}
  151.     {setvar dmail,}
  152.     {setvar quit_str,}
  153.     {setvar file,}
  154.     {return}                                     ;return to NOWHERE, quits!
  155.  
  156. {:smail}  {send %smail%|}                        ;send replies
  157.     {lookfor ^xB01}
  158.     {exec-da e:\commo\DSZ.exe port %_port ha on est 0 19200 D z pL1024 sz -rrmZkS %uldir%\%lname%.rep}
  159.     {iferr 1,,good_ul}                           ;check environment variable for
  160.     {goto dmail}                                 ; for uload success
  161. {:good_ul}  {exec del %uldir%\%lname%.rep}       ;delete upload packet if uload
  162.     {goto dmail}                                 ; is successful
  163.  
  164. {:want_mail}  {send y|}
  165.     {goto start_dl}
  166.  
  167. {:no_mail}  {send %quit_str%|}                   ;quit, no mail.
  168.     {goto clr_vars}
  169.  
  170.  
  171. I added a few comments to help explain - if you start from the top, screens
  172. are arranged to always begin at TOS.
  173.  
  174.  
  175. Pat Shanahan {waiting since 09-01-91}, Plainfield, IN
  176.  ═══════════════════════════════════════════════════════════════════════════
  177.